% dupli(+L1,-L2).
% ?- dupli([a,b,c,d],X).
% X = [a,a,b,b,c,c,d,d]

dupli([],[]):- !.
dupli(L1,L2):-
    dupli(L1,L2,[]).
    
dupli([],L2,L2):-!.
dupli([X|T],L2,Acc):-
    append(Acc,[X,X],Acc1),
    dupli(T,L2,Acc1).